home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00492.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  502 b   |  24 lines
  1. on mouseDown
  2.   global gsCleanUpHandler, name, gbVideoUp, purple, orange, yellow, rainy
  3.   set name to 0
  4.   set gbVideoUp to 0
  5.   buttonLogic()
  6.   if the result = 1 then
  7.     do(gsCleanUpHandler)
  8.     set the visible of sprite 2 to 1
  9.     set the cursor of sprite 2 to -1
  10.     unLoad(519)
  11.     unLoad(168, 175)
  12.     unLoad(446, 460)
  13.     unLoad(426, 459)
  14.     unLoad(520)
  15.     unLoad(155)
  16.     set orange to 0
  17.     set purple to 0
  18.     set yellow to 0
  19.     puppetSprite(2, 0)
  20.     go("Main Screen")
  21.     exit
  22.   end if
  23. end
  24.